home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu684.dms / pu684.adf / Install-SS < prev    next >
Text File  |  1994-01-28  |  3KB  |  152 lines

  1. ; script to install StereoScopic
  2.  
  3.  
  4.     ; set up a error cleanup routine
  5.  
  6. (onerror
  7.     (makeassign "StereoScopic_Disk" (safe))    
  8. )
  9.  
  10. (complete 0)
  11.  
  12.     ; just in case the installation was restarted
  13.  
  14. (makeassign "StereoScopic_Disk" (safe))        ; start fresh
  15.  
  16.  
  17.  
  18.     ; get a location for program
  19.     (set StereoScopic_dest
  20.         (tackon
  21.             (askdir
  22.                 (prompt "In which disk or drawer should StereoScopic be installed?")
  23.                 (help @askdir-help)
  24.                 (default @default-dest)
  25.             )
  26.             "StereoScopic"
  27.         )
  28.     )
  29.  
  30.  
  31.     ; now lock on to volume 'StereoScopic_Install'
  32.  
  33. (askdisk
  34.     (prompt "Please insert \n the master program disk \n labeled \"StereoScopic\".")
  35.     (help    "The StereoScopic program and other options will be copied "
  36.             "from the \"StereoScopic\" into your system.")
  37.     (dest  "StereoScopic_Install")
  38.     (newname "StereoScopic_Disk")
  39. )
  40.  
  41.     ; make StereoScopic drawers & icons
  42.  
  43. (makedir StereoScopic_dest (infos))
  44.  
  45. (makedir (tackon StereoScopic_dest "Images"))
  46.  
  47.     ; at this point we have a valid destination, so we tell installer where
  48.     ; the application will end up so the exit page will be correct -- also,
  49.     ; the installation log file (if any) will be copied to the destination
  50.  
  51. (set @default-dest StereoScopic_dest)
  52.  
  53.  
  54. (copyfiles
  55.     (source "StereoScopic_Disk:libs/arp.library")
  56.     (dest "LIBS:")
  57. )
  58.  
  59. (copyfiles
  60.     (source "StereoScopic_Disk:libs/hisoftbasic.library")
  61.     (dest "LIBS:")
  62. )
  63.  
  64. (copyfiles
  65.     (source "StereoScopic_Disk:StereoScopic")
  66.     (dest StereoScopic_dest)
  67. )
  68.  
  69. (copyfiles
  70.     (source "StereoScopic_Disk:StereoScopic.info")
  71.     (dest StereoScopic_dest)
  72. )
  73.  
  74.  
  75. (copyfiles
  76.     (source "StereoScopic_Disk:StereoScopic.doc")
  77.     (dest StereoScopic_dest)
  78. )
  79.  
  80. (copyfiles
  81.     (source "StereoScopic_Disk:StereoScopic.doc.info")
  82.     (dest StereoScopic_dest)
  83. )
  84.  
  85. (copyfiles
  86.     (source "StereoScopic_Disk:more")
  87.     (dest StereoScopic_dest)
  88. )
  89.  
  90. (copyfiles
  91.     (source "StereoScopic_Disk:ShowIFF")
  92.     (dest StereoScopic_dest)
  93. )
  94.  
  95. (copyfiles
  96.     (source "StereoScopic_Disk:Images")
  97.     (dest (tackon StereoScopic_dest "Images"))
  98.     (all)
  99. )
  100.  
  101. (copyfiles
  102.     (source "StereoScopic_Disk:S/StereoScopic.cfg")
  103.     (dest "S:")
  104. )
  105.  
  106.  
  107.     ; reinitialize assigns
  108.  
  109. (if (not @pretend)
  110.     (makeassign "StereoScopic" StereoScopic_dest)
  111.     
  112. )
  113.  
  114.     ; decompress files
  115.  
  116. (run
  117.     "StereoScopic_Install:C/LHA e StereoScopic:Images/Samples.LHA StereoScopic:Images/"
  118. )
  119.  
  120. (run
  121.     "StereoScopic_Install:C/LHA e StereoScopic:Images/Source.LHA StereoScopic:Images/"
  122. )
  123.  
  124. (run
  125.     "StereoScopic_Install:C/LHA e StereoScopic:Images/StereoScopic.LHA StereoScopic:Images/"
  126. )
  127.  
  128.     ; reset icons
  129.  
  130. (tooltype
  131.     (dest "StereoScopic:StereoScopic")
  132.     (noposition)
  133. )
  134. (tooltype
  135.     (dest "StereoScopic:StereoScopic.doc")
  136.     (noposition)
  137. )
  138.  
  139.     ; cleanup
  140.  
  141. (delete "StereoScopic:Images/Samples.LHA")
  142. (delete "StereoScopic:Images/Source.LHA")
  143. (delete "StereoScopic:Images/StereoScopic.LHA")
  144. (makeassign "StereoScopic_Disk" (safe))
  145.  
  146.     ; this is not strictly necessary, but doesn't hurt -- there is always
  147.     ; a default (exit) at the end of any script
  148.  
  149. (exit)
  150.  
  151.